home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI332.ASC < prev    next >
Text File  |  1991-09-11  |  3KB  |  199 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO TUTOR                                NUMBER : 332
  10.   VERSION : 2.00
  11.        OS : PC-DOS
  12.      DATE : August 25, 1986                              PAGE : 1/3
  13.     TITLE : WINDOWS UPDATET
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications prevent the possible locking  of your
  19.   system when the WINDOWS example is run on a monochrome system.
  20.  
  21.   1.   Make a backup of the file TUTOR.LIB.
  22.  
  23.   2.   Load the file TUTOR.LIB into the Turbo Pascal editor.
  24.  
  25.   3.   In the procedure MoveToScreen:
  26.  
  27.       Change the line:
  28.           .
  29.           .
  30.           .
  31.         Len := Len shr 1;
  32.           .
  33.           .
  34.           .
  35.  
  36.       Change to:
  37.           .
  38.           .
  39.           .
  40.         if VideoMode = MonoMode then
  41.           Move(Source, Dest, Len)
  42.         else begin
  43.           Len := Len shr 1;
  44.           .
  45.           .
  46.           .
  47.  
  48.   4.   Change the line:
  49.           .
  50.           .
  51.           .
  52.         end; { MoveToScreen }
  53.           .
  54.           .
  55.           .
  56.  
  57.       Change to:
  58.           .
  59.           .
  60.           .
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO TUTOR                                NUMBER : 332
  76.   VERSION : 2.00
  77.        OS : PC-DOS
  78.      DATE : August 25, 1986                              PAGE : 2/3
  79.     TITLE : WINDOWS UPDATE
  80.  
  81.  
  82.  
  83.  
  84.           end;
  85.         end; { MoveToScreen }
  86.           .
  87.           .
  88.           .
  89.  
  90.   5.   In the procedure MoveFromScreen:
  91.  
  92.       Change the line:
  93.           .
  94.           .
  95.           .
  96.         Len := Len shr 1;
  97.           .
  98.           .
  99.           .
  100.  
  101.       Change to:
  102.           .
  103.           .
  104.           .
  105.         if VideoMode = MonoMode then
  106.           Move(Source, Dest, Len)
  107.         else begin
  108.           Len := Len shr 1;
  109.           .
  110.           .
  111.           .
  112.  
  113.   6.   Change the line:
  114.           .
  115.           .
  116.           .
  117.         end; { MoveFromScreen }
  118.           .
  119.           .
  120.           .
  121.  
  122.       Change to:
  123.           .
  124.           .
  125.           .
  126.           end;
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.   PRODUCT : TURBO TUTOR                                NUMBER : 332
  142.   VERSION : 2.00
  143.        OS : PC-DOS
  144.      DATE : August 25, 1986                              PAGE : 3/3
  145.     TITLE : WINDOWS UPDATE
  146.  
  147.  
  148.  
  149.  
  150.         end; { MoveFromScreen }
  151.           .
  152.           .
  153.           .
  154.  
  155.   7.   At the top of  the  file, update the version number from 2.0
  156.        to  2.00A.
  157.  
  158.   8.   Save the file TUTOR.LIB.
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.